home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / advanc2a / vbavicap.bas < prev    next >
BASIC Source File  |  1998-03-13  |  24KB  |  424 lines
  1. Attribute VB_Name = "AVICAP"
  2. '*
  3. '* Author: E. J. Bantz Jr.
  4. '* Copyright: None, use and distribute freely ...
  5. '* E-Mail: ej@bantz.com
  6. '* Web: http://ej.bantz.com/video
  7.  
  8. '// ------------------------------------------------------------------
  9. '//  Windows API Constants / Types / Declarations
  10. '// ------------------------------------------------------------------
  11. Public Const WM_USER = &H400
  12. Type POINTAPI
  13.         x As Long
  14.         y As Long
  15. End Type
  16. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  17. Declare Function SendMessageS Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As String) As Long
  18.  
  19. '// ------------------------------------------------------------------
  20. '//  Window Messages  WM_CAP... which can be sent to an AVICAP window
  21. '// ------------------------------------------------------------------
  22.  
  23. '// Defines start of the message range
  24. Public Const WM_CAP_START = WM_USER
  25.  
  26. Public Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1
  27.  
  28. Public Const WM_CAP_SET_CALLBACK_ERROR = WM_CAP_START + 2
  29. Public Const WM_CAP_SET_CALLBACK_STATUS = WM_CAP_START + 3
  30. Public Const WM_CAP_SET_CALLBACK_YIELD = WM_CAP_START + 4
  31. Public Const WM_CAP_SET_CALLBACK_FRAME = WM_CAP_START + 5
  32. Public Const WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START + 6
  33. Public Const WM_CAP_SET_CALLBACK_WAVESTREAM = WM_CAP_START + 7
  34. Public Const WM_CAP_GET_USER_DATA = WM_CAP_START + 8
  35. Public Const WM_CAP_SET_USER_DATA = WM_CAP_START + 9
  36.     
  37. Public Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
  38. Public Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
  39. Public Const WM_CAP_DRIVER_GET_NAME = WM_CAP_START + 12
  40. Public Const WM_CAP_DRIVER_GET_VERSION = WM_CAP_START + 13
  41. Public Const WM_CAP_DRIVER_GET_CAPS = WM_CAP_START + 14
  42.  
  43. Public Const WM_CAP_FILE_SET_CAPTURE_FILE = WM_CAP_START + 20
  44. Public Const WM_CAP_FILE_GET_CAPTURE_FILE = WM_CAP_START + 21
  45. Public Const WM_CAP_FILE_ALLOCATE = WM_CAP_START + 22
  46. Public Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23
  47. Public Const WM_CAP_FILE_SET_INFOCHUNK = WM_CAP_START + 24
  48. Public Const WM_CAP_FILE_SAVEDIB = WM_CAP_START + 25
  49.  
  50. Public Const WM_CAP_EDIT_COPY = WM_CAP_START + 30
  51.  
  52. Public Const WM_CAP_SET_AUDIOFORMAT = WM_CAP_START + 35
  53. Public Const WM_CAP_GET_AUDIOFORMAT = WM_CAP_START + 36
  54.  
  55. Public Const WM_CAP_DLG_VIDEOFORMAT = WM_CAP_START + 41
  56. Public Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
  57. Public Const WM_CAP_DLG_VIDEODISPLAY = WM_CAP_START + 43
  58. Public Const WM_CAP_GET_VIDEOFORMAT = WM_CAP_START + 44
  59. Public Const WM_CAP_SET_VIDEOFORMAT = WM_CAP_START + 45
  60. Public Const WM_CAP_DLG_VIDEOCOMPRESSION = WM_CAP_START + 46
  61.  
  62. Public Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50
  63. Public Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
  64. Public Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
  65. Public Const WM_CAP_SET_SCALE = WM_CAP_START + 53
  66. Public Const WM_CAP_GET_STATUS = WM_CAP_START + 54
  67. Public Const WM_CAP_SET_SCROLL = WM_CAP_START + 55
  68.  
  69. Public Const WM_CAP_GRAB_FRAME = WM_CAP_START + 60
  70. Public Const WM_CAP_GRAB_FRAME_NOSTOP = WM_CAP_START + 61
  71.  
  72. Public Const WM_CAP_SEQUENCE = WM_CAP_START + 62
  73. Public Const WM_CAP_SEQUENCE_NOFILE = WM_CAP_START + 63
  74. Public Const WM_CAP_SET_SEQUENCE_SETUP = WM_CAP_START + 64
  75. Public Const WM_CAP_GET_SEQUENCE_SETUP = WM_CAP_START + 65
  76. Public Const WM_CAP_SET_MCI_DEVICE = WM_CAP_START + 66
  77. Public Const WM_CAP_GET_MCI_DEVICE = WM_CAP_START + 67
  78. Public Const WM_CAP_STOP = WM_CAP_START + 68
  79. Public Const WM_CAP_ABORT = WM_CAP_START + 69
  80.  
  81. Public Const WM_CAP_SINGLE_FRAME_OPEN = WM_CAP_START + 70
  82. Public Const WM_CAP_SINGLE_FRAME_CLOSE = WM_CAP_START + 71
  83. Public Const WM_CAP_SINGLE_FRAME = WM_CAP_START + 72
  84.  
  85. Public Const WM_CAP_PAL_OPEN = WM_CAP_START + 80
  86. Public Const WM_CAP_PAL_SAVE = WM_CAP_START + 81
  87. Public Const WM_CAP_PAL_PASTE = WM_CAP_START + 82
  88. Public Const WM_CAP_PAL_AUTOCREATE = WM_CAP_START + 83
  89. Public Const WM_CAP_PAL_MANUALCREATE = WM_CAP_START + 84
  90.  
  91. '// Following added post VFW 1.1
  92. Public Const WM_CAP_SET_CALLBACK_CAPCONTROL = WM_CAP_START + 85
  93.  
  94. '// Defines end of the message range
  95. Public Const WM_CAP_END = WM_CAP_SET_CALLBACK_CAPCONTROL
  96.  
  97. '// ------------------------------------------------------------------
  98. '//  Structures
  99. '// ------------------------------------------------------------------
  100. Type CAPDRIVERCAPS
  101.     wDeviceIndex As Long '               // Driver index in system.ini
  102.     fHasOverlay As Long '                // Can device overlay?
  103.     fHasDlgVideoSource As Long '         // Has Video source dlg?
  104.     fHasDlgVideoFormat As Long '         // Has Format dlg?
  105.     fHasDlgVideoDisplay As Long '        // Has External out dlg?
  106.     fCaptureInitialized As Long '        // Driver ready to capture?
  107.     fDriverSuppliesPalettes As Long '    // Can driver make palettes?
  108.     hVideoIn As Long '                   // Driver In channel
  109.     hVideoOut As Long '                  // Driver Out channel
  110.     hVideoExtIn As Long '                // Driver Ext In channel
  111.     hVideoExtOut As Long '               // Driver Ext Out channel
  112. End Type
  113.  
  114. Type CAPSTATUS
  115.     uiImageWidth As Long                    '// Width of the image
  116.     uiImageHeight As Long                   '// Height of the image
  117.     fLiveWindow As Long                     '// Now Previewing video?
  118.     fOverlayWindow As Long                  '// Now Overlaying video?
  119.     fScale As Long                          '// Scale image to client?
  120.     ptScroll As POINTAPI                    '// Scroll position
  121.     fUsingDefaultPalette As Long            '// Using default driver palette?
  122.     fAudioHardware As Long                  '// Audio hardware present?
  123.     fCapFileExists As Long                  '// Does capture file exist?
  124.     dwCurrentVideoFrame As Long             '// # of video frames cap'td
  125.     dwCurrentVideoFramesDropped As Long     '// # of video frames dropped
  126.     dwCurrentWaveSamples As Long            '// # of wave samples cap'td
  127.     dwCurrentTimeElapsedMS As Long          '// Elapsed capture duration
  128.     hPalCurrent As Long                     '// Current palette in use
  129.     fCapturingNow As Long                   '// Capture in progress?
  130.     dwReturn As Long                        '// Error value after any operation
  131.     wNumVideoAllocated As Long              '// Actual number of video buffers
  132.     wNumAudioAllocated As Long              '// Actual number of audio buffers
  133. End Type
  134.  
  135. Type CAPTUREPARMS
  136.     dwRequestMicroSecPerFrame As Long       '// Requested capture rate
  137.     fMakeUserHitOKToCapture As Long         '// Show "Hit OK to cap" dlg?
  138.     wPercentDropForError As Long            '// Give error msg if > (10%)
  139.     fYield As Long                          '// Capture via background task?
  140.     dwIndexSize As Long                     '// Max index size in frames (32K)
  141.     wChunkGranularity As Long               '// Junk chunk granularity (2K)
  142.     fUsingDOSMemory As Long                 '// Use DOS buffers?
  143.     wNumVideoRequested As Long              '// # video buffers, If 0, autocalc
  144.     fCaptureAudio As Long                   '// Capture audio?
  145.     wNumAudioRequested As Long              '// # audio buffers, If 0, autocalc
  146.     vKeyAbort As Long                       '// Virtual key causing abort
  147.     fAbortLeftMouse As Long                 '// Abort on left mouse?
  148.     fAbortRightMouse As Long                '// Abort on right mouse?
  149.     fLimitEnabled As Long                   '// Use wTimeLimit?
  150.     wTimeLimit As Long                      '// Seconds to capture
  151.     fMCIControl As Long                     '// Use MCI video source?
  152.     fStepMCIDevice As Long                  '// Step MCI device?
  153.     dwMCIStartTime As Long                  '// Time to start in MS
  154.     dwMCIStopTime As Long                   '// Time to stop in MS
  155.     fStepCaptureAt2x As Long                '// Perform spatial averaging 2x
  156.     wStepCaptureAverageFrames As Long       '// Temporal average n Frames
  157.     dwAudioBufferSize As Long               '// Size of audio bufs (0 = default